home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / autocm10.arc / SOURCE1.MAC < prev    next >
Text File  |  1990-08-07  |  2KB  |  64 lines
  1.  **START-UP MACRO**             /* control passes here upon {COMMO}(tm) start-up */
  2.  {SRT}  {call cap} {call dil} {}/* open capture file and start the dialing */
  3.  
  4.  **OPENS CAPTURE FILE AUTOCOM.CAP**
  5.  {CAP}  {capture y,autocom.cap} {return}
  6.  
  7.  **MAIN ROUTINE, CALLS OTHERS** /* this is the connect macro from commo.fon */
  8.  {MAN}  {call log} {call dwn} {call adi} {goto ngn} /*logon,download,additional macro, hangup */
  9.  
  10.  **GENERIC LOG ONTO BBS UP TO MAIN BOARD**
  11.  {LOG}  {setlook 120,hng,15,n|}
  12.         {golook tn1,continue}
  13.         {golook nol,bort?}
  14.         {golook nol,no?}
  15.         {golook nol,yes?}
  16.         {golook nol,more?}
  17.         {golook nol,[y]}
  18.         {golook nol,[n]}
  19.         {lookfor first name}
  20.         {call nam}
  21.         {password} {send |}
  22.  {CON}  {golook tn2,continue}
  23.         {golook nop,bort?}
  24.         {golook nop,no?}
  25.         {golook nop,yes?}
  26.         {golook nop,more?}
  27.         {golook nop,[y]}
  28.         {golook nop,[n]}
  29.         {lookfor command?}
  30.         {return}
  31.  
  32.  {NOL}  {send ~n|} {goto log}         /* send no if no?, or yes? is seen */
  33.  {NOP}  {send ~n|} {goto con}         /* send no if no?, or yes? is seen */
  34.  {TN1}  {send ~|}  {goto log}         /* send enter if continue is seen  */
  35.  {TN2}  {send ~|}  {goto con}         /* send enter if continue is seen  */
  36.  
  37.  **NORMAL HANG UP**
  38.  {NGN}  {ifexist autoerr,hng,}                /* if error flag, abnormal exit */
  39.         {send g|~y|~n|} {pause 15} {hangup y}
  40.         {exit 0}
  41.  
  42.  **ABNORMAL HANGUP**
  43.  {HNG}  {send g|~y|~n|} {pause 15} {hangup y}
  44.         {exit 1}
  45.  
  46.  **2ND HALF OF FILE DOWNLOAD**
  47.  {DN2}  {setlook 120,hng,3,|}
  48.         {golook bad,not found}                /* flag error if file not found */
  49.         {golook bad,sorry}
  50.         {lookfor ^XB00}                       /* wait for zmodem prompt */
  51.         {CALL .Z.}                            /* call user's dsz macro */
  52.  {CNT}  {setlook 120,hng,10,n|}
  53.         {lookfor command}
  54.         {return}
  55.  
  56.  {BSY}  {local y} {send BBS is busy, waiting 15 minutes to call again...|^j^j}
  57.         {local n}
  58.         {pause 900}  /*wait 15 min*/
  59.         {call dll} {goto man}
  60.  
  61.  {bad}  {exec md autoerr}                   /* flag error with autoerr dir */
  62.         {send |}
  63.         {goto cnt}                          /* continue with remainder */
  64.